home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / ZROSE2.BAS < prev   
BASIC Source File  |  1991-03-20  |  948b  |  27 lines
  1. 00010 MODE 22
  2. 00020 CLS
  3. 00030 FOR N = 2 TO 255
  4. 00040   CLS
  5. 00050   FOR D = 1 TO 255
  6. 00060     C1 = RND(14) + 1 : C2 = RND(14) + 1 : C3 = RND(14) + 1 : COLOR C1,C2,C3
  7. 00070     PRINT %(0,0) "N="N" ","D="D" "
  8. 00080     T = 0 : C = 0
  9. 00090     WHILE C < 255
  10. 00100       A = T : X = (N * A) MOD 256 : R = USR 8(X) / 2
  11. 00110       PLOT 511+((R*USR 9(A))/128), 383-((R*USR 8(A))/128)
  12. 00120       DO
  13. 00130         A = (A + D) MOD 256
  14. 00140         X = (N * A) MOD 256 : R = USR 8(X)/2
  15. 00150         PLOT TO 511 + ((R * USR 9(A))/128), 383-((R * USR 8(A))/128)
  16. 00160         C = C + 1
  17. 00170       UNTIL A = T
  18. 00180       T = T + 1
  19. 00190     WEND
  20. 00200     A$ = INKEY$ : IF A$ = CHR$(3) THEN "QUIT"
  21. 00210     IF LEN(A$) THEN D = 255
  22. 00220   NEXT D
  23. 00230 NEXT N
  24. 00240 SOUND 1000,500 : SOUND 500,500
  25. 00250 DO : UNTIL LEN(A$)
  26. 00280 "QUIT" MODE 2 : END
  27.